home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tcpech1a / frmserve.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-29  |  10.4 KB  |  273 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  4. Begin VB.Form frmServer 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H00000000&
  7.    Caption         =   "Incarnation Server"
  8.    ClientHeight    =   6390
  9.    ClientLeft      =   60
  10.    ClientTop       =   345
  11.    ClientWidth     =   9480
  12.    ForeColor       =   &H00FFFF00&
  13.    LinkTopic       =   "Form1"
  14.    PaletteMode     =   2  'Custom
  15.    ScaleHeight     =   426
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   632
  18.    WindowState     =   2  'Maximized
  19.    Begin VB.CommandButton cmdKick 
  20.       Caption         =   "Kick Loose"
  21.       Height          =   540
  22.       Left            =   7755
  23.       TabIndex        =   10
  24.       Top             =   1335
  25.       Width           =   1155
  26.    End
  27.    Begin RichTextLib.RichTextBox txtOutput 
  28.       Height          =   1530
  29.       Left            =   915
  30.       TabIndex        =   9
  31.       Top             =   3420
  32.       Width           =   4860
  33.       _ExtentX        =   8573
  34.       _ExtentY        =   2699
  35.       _Version        =   393217
  36.       ScrollBars      =   2
  37.       TextRTF         =   $"frmServer.frx":0000
  38.    End
  39.    Begin VB.CommandButton cmdCallbackClient 
  40.       Caption         =   "cmdCallbackClient"
  41.       Height          =   540
  42.       Left            =   210
  43.       TabIndex        =   8
  44.       Top             =   1155
  45.       Visible         =   0   'False
  46.       Width           =   1635
  47.    End
  48.    Begin VB.ListBox lstGMs 
  49.       Appearance      =   0  'Flat
  50.       Height          =   1260
  51.       IntegralHeight  =   0   'False
  52.       Left            =   7830
  53.       TabIndex        =   6
  54.       Top             =   945
  55.       Width           =   1830
  56.    End
  57.    Begin MSComctlLib.Toolbar Toolbar1 
  58.       Align           =   1  'Align Top
  59.       Height          =   600
  60.       Left            =   0
  61.       TabIndex        =   5
  62.       Top             =   0
  63.       Width           =   9480
  64.       _ExtentX        =   16722
  65.       _ExtentY        =   1058
  66.       ButtonWidth     =   609
  67.       ButtonHeight    =   953
  68.       Wrappable       =   0   'False
  69.       _Version        =   393216
  70.    End
  71.    Begin VB.ListBox lstPlayers 
  72.       Appearance      =   0  'Flat
  73.       Height          =   1260
  74.       IntegralHeight  =   0   'False
  75.       Left            =   7635
  76.       TabIndex        =   4
  77.       Top             =   600
  78.       Width           =   1830
  79.    End
  80.    Begin MSComctlLib.ImageList imgListToolbar 
  81.       Left            =   7725
  82.       Top             =   975
  83.       _ExtentX        =   1005
  84.       _ExtentY        =   1005
  85.       BackColor       =   -2147483643
  86.       ImageWidth      =   32
  87.       ImageHeight     =   32
  88.       MaskColor       =   12632256
  89.       _Version        =   393216
  90.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  91.          NumListImages   =   21
  92.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "frmServer.frx":00C9
  94.             Key             =   "Microphone"
  95.             Object.Tag             =   "Record Sound"
  96.          EndProperty
  97.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  98.             Picture         =   "frmServer.frx":0525
  99.             Key             =   "Sessions"
  100.             Object.Tag             =   "Display Sessions"
  101.          EndProperty
  102.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.             Picture         =   "frmServer.frx":0979
  104.             Key             =   "Warning"
  105.             Object.Tag             =   "Warning"
  106.          EndProperty
  107.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  108.             Picture         =   "frmServer.frx":0DCD
  109.             Key             =   "Hamster"
  110.             Object.Tag             =   "Hamster"
  111.          EndProperty
  112.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "frmServer.frx":1621
  114.             Key             =   "Midi"
  115.             Object.Tag             =   "Play Midi"
  116.          EndProperty
  117.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  118.             Picture         =   "frmServer.frx":1A75
  119.             Key             =   "Sound"
  120.             Object.Tag             =   "Play Sound"
  121.          EndProperty
  122.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.             Picture         =   "frmServer.frx":1ED1
  124.             Key             =   "Time"
  125.             Object.Tag             =   "Set Server Time"
  126.          EndProperty
  127.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  128.             Picture         =   "frmServer.frx":2325
  129.             Key             =   "Lightning"
  130.             Object.Tag             =   "Smite Player"
  131.          EndProperty
  132.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "frmServer.frx":2779
  134.             Key             =   "Upload"
  135.             Object.Tag             =   "Upload Client"
  136.          EndProperty
  137.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  138.             Picture         =   "frmServer.frx":2BCD
  139.             Key             =   "Smiley Neutral"
  140.             Object.Tag             =   "Gag Player"
  141.          EndProperty
  142.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.             Picture         =   "frmServer.frx":3021
  144.             Key             =   "Smiley Happy"
  145.             Object.Tag             =   "Ungag Player"
  146.          EndProperty
  147.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.             Picture         =   "frmServer.frx":3475
  149.             Key             =   "Smiley Unhappy"
  150.             Object.Tag             =   "Ban Player"
  151.          EndProperty
  152.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "frmServer.frx":3791
  154.             Key             =   "Rain"
  155.             Object.Tag             =   "Rain"
  156.          EndProperty
  157.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  158.             Picture         =   "frmServer.frx":3BE5
  159.             Key             =   "Snow"
  160.             Object.Tag             =   "Snow"
  161.          EndProperty
  162.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  163.             Picture         =   "frmServer.frx":4039
  164.             Key             =   "Sun"
  165.             Object.Tag             =   "Sun"
  166.          EndProperty
  167.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.             Picture         =   "frmServer.frx":448D
  169.             Key             =   "Timings"
  170.             Object.Tag             =   "Display Timings"
  171.          EndProperty
  172.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  173.             Picture         =   "frmServer.frx":48E1
  174.             Key             =   "Letter"
  175.             Object.Tag             =   "Send Mail"
  176.          EndProperty
  177.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  178.             Picture         =   "frmServer.frx":4D35
  179.             Key             =   "Mailbox"
  180.             Object.Tag             =   "Check Mail"
  181.          EndProperty
  182.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  183.             Picture         =   "frmServer.frx":5189
  184.             Key             =   "Binoculars"
  185.             Object.Tag             =   "Player Stats"
  186.          EndProperty
  187.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.             Picture         =   "frmServer.frx":55DD
  189.             Key             =   "Webcam"
  190.             Object.Tag             =   "Webcam"
  191.          EndProperty
  192.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  193.             Picture         =   "frmServer.frx":58F9
  194.             Key             =   "Stop"
  195.             Object.Tag             =   "Shutdown Server"
  196.          EndProperty
  197.       EndProperty
  198.    End
  199.    Begin MSComctlLib.StatusBar StatusBar1 
  200.       Align           =   2  'Align Bottom
  201.       Height          =   375
  202.       Left            =   0
  203.       TabIndex        =   3
  204.       Top             =   6015
  205.       Width           =   9480
  206.       _ExtentX        =   16722
  207.       _ExtentY        =   661
  208.       _Version        =   393216
  209.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  210.          NumPanels       =   1
  211.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  212.          EndProperty
  213.       EndProperty
  214.    End
  215.    Begin VB.PictureBox picLights 
  216.       Appearance      =   0  'Flat
  217.       AutoRedraw      =   -1  'True
  218.       BackColor       =   &H00000000&
  219.       BorderStyle     =   0  'None
  220.       FillStyle       =   0  'Solid
  221.       ForeColor       =   &H80000008&
  222.       Height          =   1500
  223.       Left            =   -15
  224.       ScaleHeight     =   100
  225.       ScaleMode       =   3  'Pixel
  226.       ScaleWidth      =   500
  227.       TabIndex        =   2
  228.       TabStop         =   0   'False
  229.       Top             =   630
  230.       Width           =   7500
  231.       Begin VB.CommandButton cmdTCPConnect 
  232.          Caption         =   "cmdTCPConnect"
  233.          Height          =   540
  234.          Left            =   210
  235.          TabIndex        =   7
  236.          Top             =   0
  237.          Visible         =   0   'False
  238.          Width           =   1635
  239.       End
  240.    End
  241.    Begin VB.TextBox txtInput 
  242.       BackColor       =   &H00E0E0E0&
  243.       Height          =   285
  244.       Left            =   15
  245.       TabIndex        =   1
  246.       Top             =   5640
  247.       Width           =   9255
  248.    End
  249.    Begin VB.TextBox txtDebug 
  250.       Appearance      =   0  'Flat
  251.       BackColor       =   &H00C0C0C0&
  252.       BorderStyle     =   0  'None
  253.       ForeColor       =   &H000000C0&
  254.       Height          =   855
  255.       Left            =   0
  256.       Locked          =   -1  'True
  257.       MousePointer    =   1  'Arrow
  258.       MultiLine       =   -1  'True
  259.       ScrollBars      =   2  'Vertical
  260.       TabIndex        =   0
  261.       TabStop         =   0   'False
  262.       Top             =   2175
  263.       Width           =   9495
  264.    End
  265. Attribute VB_Name = "frmServer"
  266. Attribute VB_GlobalNameSpace = False
  267. Attribute VB_Creatable = False
  268. Attribute VB_PredeclaredId = True
  269. Attribute VB_Exposed = False
  270. Private Sub cmdKick_Click()
  271.     TCP.Kick
  272. End Sub
  273.